home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / bash / bash_110 / unixmode / src_d3.zoo / patches.zoo / source.diff < prev   
Encoding:
C/C++ Source or Header  |  1991-10-30  |  33.2 KB  |  1,287 lines
  1. diff -c ./bashline.c /home/scott/work/st-bash-1.10/src/bashline.c
  2. *** ./bashline.c    Thu Jul 11 17:36:28 1991
  3. --- /home/scott/work/st-bash-1.10/src/bashline.c    Wed Oct 23 18:45:03 1991
  4. ***************
  5. *** 35,44 ****
  6.   
  7.   static char
  8.     **attempt_shell_completion (), *variable_completion_function (),
  9. !   *hostname_completion_function (), *command_word_completion_function ();
  10.   
  11.   static void
  12.     snarf_hosts_from_file (), add_host_name (), sort_hostname_list ();
  13.   
  14.   /* Externally defined functions used by this file. */
  15.   extern char
  16. --- 35,49 ----
  17.   
  18.   static char
  19.     **attempt_shell_completion (), *variable_completion_function (),
  20. ! #if !defined(atarist)
  21. !   *hostname_completion_function (),  /** sjk++ remove network stuff. **/
  22. ! #endif 
  23. ! *command_word_completion_function ();
  24.   
  25. + #if !defined(atarist)
  26.   static void
  27.     snarf_hosts_from_file (), add_host_name (), sort_hostname_list ();
  28. + #endif 
  29.   
  30.   /* Externally defined functions used by this file. */
  31.   extern char
  32. ***************
  33. *** 61,68 ****
  34. --- 66,78 ----
  35.     bash_complete_filename_internal (),
  36.     bash_complete_username (), bash_possible_username_completions (),
  37.     bash_complete_username_internal (),
  38. + /**
  39. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  40. +  **/
  41. + #if !defined(atarist)
  42.     bash_complete_hostname (), bash_possible_hostname_completions (),
  43.     bash_complete_hostname_internal (),
  44. + #endif 
  45.     bash_complete_variable (), bash_possible_variable_completions (),
  46.     bash_complete_variable_internal (),
  47.     bash_complete_command (), bash_possible_command_completions (),
  48. ***************
  49. *** 115,125 ****
  50. --- 125,140 ----
  51.     rl_bind_key_in_map ('~', bash_possible_username_completions,
  52.                 emacs_ctlx_keymap);
  53.   
  54. + /**
  55. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  56. +  **/
  57. + #if !defined(atarist)
  58.     rl_add_defun ("complete-hostname", bash_complete_hostname, META('@'));
  59.     rl_add_defun ("possible-hostname-completions",
  60.           bash_possible_hostname_completions, -1);
  61.     rl_bind_key_in_map ('@', bash_possible_hostname_completions,
  62.                 emacs_ctlx_keymap);
  63. + #endif 
  64.   
  65.     rl_add_defun ("complete-variable", bash_complete_variable, META('$'));
  66.     rl_add_defun ("possible-variable-completions",
  67. ***************
  68. *** 209,214 ****
  69. --- 224,233 ----
  70.   /*                                    */
  71.   /* **************************************************************** */
  72.   
  73. + /**
  74. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  75. +  **/
  76. + #if !defined(atarist)
  77.   /* If the user requests hostname completion, then simply build a list
  78.      of hosts, and complete from that forever more. */
  79.   #if !defined (ETCHOSTS)
  80. ***************
  81. *** 253,259 ****
  82.     if (hostname_list_length + 2 > hostname_list_size)
  83.       {
  84.         hostname_list = (char **)
  85. !     xrealloc (hostname_list,
  86.             (1 + (hostname_list_size += 100)) * sizeof (char *));
  87.       }
  88.   
  89. --- 272,278 ----
  90.     if (hostname_list_length + 2 > hostname_list_size)
  91.       {
  92.         hostname_list = (char **)
  93. !     xrealloc ((char *)hostname_list,
  94.             (1 + (hostname_list_size += 100)) * sizeof (char *));
  95.       }
  96.   
  97. ***************
  98. *** 408,413 ****
  99. --- 427,433 ----
  100.       }
  101.     return ((char **)NULL);
  102.   }
  103. + #endif 
  104.   
  105.   /* This is a K*rn shell style insert-last-arg function.  The
  106.      difference is that Bash puts stuff into the history file before
  107. ***************
  108. *** 537,544 ****
  109. --- 557,570 ----
  110.   
  111.     /* Another one.  Why not?  If the word starts in '@', then look through
  112.        the world of known hostnames for completion first. */
  113. + 
  114. + /**
  115. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  116. +  **/
  117. + #if !defined(atarist)
  118.     if (!matches && *text == '@')
  119.       matches = completion_matches (text, hostname_completion_function);
  120. + #endif
  121.   
  122.     /* And last, (but not least) if this word is in a command position, then
  123.        complete over possible command names, including aliases, functions,
  124. ***************
  125. *** 794,799 ****
  126. --- 820,829 ----
  127.       }
  128.   }
  129.   
  130. + /**
  131. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  132. +  **/
  133. + #if !defined(atarist)
  134.   /* How about a completion function for hostnames? */
  135.   static char *
  136.   hostname_completion_function (text, state)
  137. ***************
  138. *** 836,841 ****
  139. --- 866,872 ----
  140.     else
  141.       return ((char *)NULL);
  142.   }
  143. + #endif 
  144.   
  145.   /* History and alias expand the line.  But maybe do more?  This
  146.      is a test to see what users like.  Do expand_string on the string. */
  147. ***************
  148. *** 996,1002 ****
  149.       {
  150.         if (numitems + 1 > maxitems)
  151.       ignores = (struct ign *)
  152. !       xrealloc (ignores, (maxitems += 10) * sizeof (struct ign));
  153.   
  154.         ignores[numitems].val = colon_bit;
  155.         ignores[numitems].len = strlen (colon_bit);
  156. --- 1027,1033 ----
  157.       {
  158.         if (numitems + 1 > maxitems)
  159.       ignores = (struct ign *)
  160. !       xrealloc ((char *)ignores, (maxitems += 10) * sizeof (struct ign));
  161.   
  162.         ignores[numitems].val = colon_bit;
  163.         ignores[numitems].len = strlen (colon_bit);
  164. ***************
  165. *** 1143,1148 ****
  166. --- 1174,1183 ----
  167.     rl_completer_word_break_characters = orig_rl_completer_word_break_characters;
  168.   }
  169.   
  170. + /**
  171. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  172. +  **/
  173. + #if !defined(atarist)
  174.   static void
  175.   bash_complete_hostname (ignore, ignore2)
  176.        int ignore, ignore2;
  177. ***************
  178. *** 1156,1161 ****
  179. --- 1191,1197 ----
  180.   {
  181.     bash_complete_hostname_internal ('?');
  182.   }
  183. + #endif 
  184.   
  185.   static void
  186.   bash_complete_variable (ignore, ignore2)
  187. ***************
  188. *** 1186,1191 ****
  189. --- 1222,1231 ----
  190.     bash_complete_command_internal ('?');
  191.   }
  192.   
  193. + /**
  194. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  195. +  **/
  196. + #if !defined(atarist)
  197.   static void
  198.   bash_complete_hostname_internal (what_to_do)
  199.        int what_to_do;
  200. ***************
  201. *** 1193,1198 ****
  202. --- 1233,1239 ----
  203.     bash_specific_completion
  204.       (what_to_do, (Function *)hostname_completion_function);
  205.   }
  206. + #endif 
  207.   
  208.   static void
  209.   bash_complete_variable_internal (what_to_do)
  210. diff -c ./braces.c /home/scott/work/st-bash-1.10/src/braces.c
  211. *** ./braces.c    Sun Jul  7 14:36:14 1991
  212. --- /home/scott/work/st-bash-1.10/src/braces.c    Wed Oct 23 18:46:13 1991
  213. ***************
  214. *** 110,116 ****
  215.   #if defined (SHELL)
  216.     /* If the amble does not contain BRACE_ARG_SEPARATOR, then just return
  217.        without doing any expansion.  */
  218. !   if (index (amble, brace_arg_separator) == NULL)
  219.       {
  220.         free (amble);
  221.         free (preamble);
  222. --- 110,116 ----
  223.   #if defined (SHELL)
  224.     /* If the amble does not contain BRACE_ARG_SEPARATOR, then just return
  225.        without doing any expansion.  */
  226. !   if (index (amble, brace_arg_separator) == (int)NULL)
  227.       {
  228.         free (amble);
  229.         free (preamble);
  230. ***************
  231. *** 164,170 ****
  232.         register int lp = array_len (partial);
  233.         register int j;
  234.   
  235. !       result = (char **)xrealloc (result, (1 + lp + lr) * sizeof (char *));
  236.   
  237.         for (j = 0; j < lp; j++)
  238.           result[lr + j] = partial[j];
  239. --- 164,170 ----
  240.         register int lp = array_len (partial);
  241.         register int j;
  242.   
  243. !       result = (char **)xrealloc ((char *)result, (1 + lp + lr) * sizeof (char *));
  244.   
  245.         for (j = 0; j < lp; j++)
  246.           result[lr + j] = partial[j];
  247. diff -c ./config.h /home/scott/work/st-bash-1.10/src/config.h
  248. *** ./config.h    Tue Sep  3 14:41:45 1991
  249. --- /home/scott/work/st-bash-1.10/src/config.h    Wed Oct 23 19:14:01 1991
  250. ***************
  251. *** 59,65 ****
  252.   
  253.   /* Define JOB_CONTROL if your operating system supports
  254.      BSD-like job control. */
  255. ! #define JOB_CONTROL
  256.   
  257.   /* Note that vanilla System V machines don't support BSD job control,
  258.      although some do support Posix job control. */
  259. --- 59,65 ----
  260.   
  261.   /* Define JOB_CONTROL if your operating system supports
  262.      BSD-like job control. */
  263. ! /* #define JOB_CONTROL */
  264.   
  265.   /* Note that vanilla System V machines don't support BSD job control,
  266.      although some do support Posix job control. */
  267. diff -c ./execute_cmd.c /home/scott/work/st-bash-1.10/src/execute_cmd.c
  268. *** ./execute_cmd.c    Thu Oct  3 16:47:59 1991
  269. --- /home/scott/work/st-bash-1.10/src/execute_cmd.c    Thu Oct 24 00:08:17 1991
  270. ***************
  271. *** 617,622 ****
  272. --- 617,627 ----
  273.                  around a bitmap of file descriptors that must be
  274.                  closed after making a child process in
  275.                  execute_simple_command. */
  276. + /** 
  277. +  ** (sjk)++ This above described problem does not exists on the 
  278. +  **         atari ST because of my brain dead pipe implementation.
  279. +  **/
  280. + #if !defined(atarist)
  281.   
  282.               /* We need fd_bitmap to be at least as big as fildes[0].
  283.                  If fildes[0] is less than fds_to_close->size, then
  284. ***************
  285. *** 684,689 ****
  286. --- 689,715 ----
  287.   #if defined (JOB_CONTROL)
  288.           UNBLOCK_CHILD (oset);
  289.   #endif
  290. + #else 
  291. +             if (ignore_return && cmd->value.Connection->first)
  292. +               cmd->value.Connection->first->flags |=
  293. +             CMD_IGNORE_RETURN;
  294. +             execute_command_internal
  295. +               (cmd->value.Connection->first, asynchronous, prev,
  296. +                fildes[1], fds_to_close);
  297. +     
  298. +                     prev = fildes[0];
  299. +            
  300. +                 }
  301. +         cmd = cmd->value.Connection->second;
  302. +            }
  303. + 
  304. +         /* Now execute the rightmost command in the pipeline.  */
  305. +         if (ignore_return && cmd)
  306. +           cmd->flags |= CMD_IGNORE_RETURN;
  307. +         exec_result =
  308. +           execute_command_internal
  309. +         (cmd, asynchronous, prev, pipe_out, fds_to_close);
  310. + #endif
  311.         }
  312.         break;
  313.   
  314. ***************
  315. *** 1574,1580 ****
  316.       {
  317.         /* A command containing a slash is not looked up in PATH. */
  318.         if (absolute_program (words->word->word))
  319. !     command = savestring (words->word->word);
  320.         else
  321.       command = find_user_command (words->word->word);
  322.   
  323. --- 1600,1632 ----
  324.       {
  325.         /* A command containing a slash is not looked up in PATH. */
  326.         if (absolute_program (words->word->word))
  327. !     { /** **/ 
  328. ! /** 
  329. !  ** (sjk)++ Add checking of extensions {.tos/.ttp/.prg} on absolute
  330. !  **         paths on the Atari ST.
  331. !  **/
  332. ! #if defined(atarist)
  333. !         char *name_suffix = alloca(4 + strlen(words->word->word));
  334. !                 struct stat finfo;
  335. !                 strcpy(name_suffix,words->word->word);
  336. !                   if (0 != stat(name_suffix,&finfo))
  337. !                  { strcat(name_suffix,".tos");
  338. !                        if (0 != stat(name_suffix,&finfo)) 
  339. !                           { strcpy(name_suffix,words->word->word);
  340. !                             strcat(name_suffix,".ttp");
  341. !                             if (0 != stat(name_suffix,&finfo)) 
  342. !                        { strcpy(name_suffix,words->word->word);
  343. !                                  strcat(name_suffix,".prg");
  344. !                                  if (0 != stat(name_suffix,&finfo))
  345. !                                     strcpy(name_suffix,words->word->word);
  346. !                    }
  347. !               }
  348. !              }
  349. !                      command = savestring (name_suffix);
  350. ! #else
  351. !               command = savestring (words->word->word);
  352. ! #endif
  353. !           }
  354.         else
  355.       command = find_user_command (words->word->word);
  356.   
  357. ***************
  358. *** 1632,1637 ****
  359. --- 1684,1695 ----
  360.     else
  361.       {
  362.         /* Make sure that the pipes are closed in the parent. */
  363. + /**
  364. +  ** On the Atari ST force GEMDOS buffers into RTL buffers.
  365. +  **/      
  366. + #if defined(atarist)
  367. +             flush_key_buff(fileno(stdin));
  368. + #endif
  369.         close_pipes (pipe_in, pipe_out);
  370.         free (command);
  371.       }
  372. ***************
  373. *** 1884,1889 ****
  374. --- 1942,1951 ----
  375.   do_piping (pipe_in, pipe_out)
  376.        int pipe_in, pipe_out;
  377.   {
  378. + /**
  379. +  ** (sjk)++ on the ST we are more carefulll
  380. +  **/
  381. + #if !defined(atarist)
  382.     if (pipe_in != NO_PIPE)
  383.       {
  384.         dup2 (pipe_in, 0);
  385. ***************
  386. *** 1897,1902 ****
  387. --- 1959,1982 ----
  388.         if (pipe_out == REDIRECT_BOTH)
  389.       dup2 (1, 2);
  390.       }
  391. + #else 
  392. +   int res;
  393. + 
  394. +   if (pipe_in != NO_PIPE)
  395. +     {
  396. +       res = dup2 (pipe_in, 0);
  397. +       if (res < 0) 
  398. +         fprintf(stderr,"pipe_in - dup2:%d, errno:%d\n",res,errno);
  399. +     }
  400. +   if (pipe_out != NO_PIPE)
  401. +     {
  402. +       res = dup2 (pipe_out, 1);
  403. +       if (res < 0)  
  404. +         fprintf(stderr,"pipe_in - dup2:%d, errno:%d\n",res,errno);
  405. +       if (pipe_out == REDIRECT_BOTH)
  406. +     dup2 (1, 2);
  407. +     }
  408. + #endif
  409.   }
  410.   
  411.   /* Defined in flags.c.  Non-zero means don't overwrite existing files. */
  412. ***************
  413. *** 2432,2438 ****
  414. --- 2512,2548 ----
  415.   find_user_command (name)
  416.        char *name;
  417.   {
  418. + /**
  419. +  ** (sjk)++ Check the extensions {.tos/.ttp/.prg} for a user command.
  420. +  **/
  421. + #if defined(atarist)
  422. +   char *win,*name_suffix;
  423. +   name_suffix = (char *)alloca(4 + strlen(name)); 
  424. + #endif
  425. + #if !defined(atarist)   
  426.     return (find_user_command_internal (name, FS_EXEC_PREFERRED));
  427. + #else
  428. +   win = find_user_command_internal(name, 1);
  429. +   if (win != (char *)NULL) return(win);
  430. +  
  431. +   strcpy(name_suffix,name);
  432. +   strcat(name_suffix,".ttp");
  433. +   win = (char *)find_user_command_internal(name_suffix, FS_EXEC_PREFERRED);
  434. +   if (win != (char *)NULL) return(win);
  435. + 
  436. +   strcpy(name_suffix,name);
  437. +   strcat(name_suffix,".tos");
  438. +   win = (char *)find_user_command_internal(name_suffix, FS_EXEC_PREFERRED);
  439. +   if (win != (char *)NULL) return(win);
  440. + 
  441. +   strcpy(name_suffix,name);
  442. +   strcat(name_suffix,".prg");
  443. +   win = (char *)find_user_command_internal(name_suffix, FS_EXEC_PREFERRED);
  444. +   if (win != (char *)NULL) return(win);
  445. + 
  446. +   return(win);
  447. + #endif                               
  448. + 
  449.   }
  450.   
  451.   /* Locate the file referenced by NAME, searching along the contents
  452. diff -c ./expr.c /home/scott/work/st-bash-1.10/src/expr.c
  453. *** ./expr.c    Sun Aug  4 15:17:33 1991
  454. --- /home/scott/work/st-bash-1.10/src/expr.c    Wed Oct 23 19:19:42 1991
  455. ***************
  456. *** 147,153 ****
  457.     if (expr_depth >= expr_stack_size)
  458.       {
  459.         expr_stack = (EXPR_CONTEXT **)
  460. !     xrealloc (expr_stack, (expr_stack_size += EXPR_STACK_GROW_SIZE)
  461.             * sizeof (EXPR_CONTEXT *));
  462.       }
  463.   
  464. --- 147,153 ----
  465.     if (expr_depth >= expr_stack_size)
  466.       {
  467.         expr_stack = (EXPR_CONTEXT **)
  468. !     xrealloc ((char *)expr_stack, (expr_stack_size += EXPR_STACK_GROW_SIZE)
  469.             * sizeof (EXPR_CONTEXT *));
  470.       }
  471.   
  472. diff -c ./general.c /home/scott/work/st-bash-1.10/src/general.c
  473. *** ./general.c    Sun Jul  7 17:24:41 1991
  474. --- /home/scott/work/st-bash-1.10/src/general.c    Wed Oct 23 19:15:36 1991
  475. ***************
  476. *** 69,75 ****
  477.   
  478.   char *
  479.   xmalloc (size)
  480. !      int size;
  481.   {
  482.     register char *temp = (char *)malloc (size);
  483.   
  484. --- 69,75 ----
  485.   
  486.   char *
  487.   xmalloc (size)
  488. ! long size;
  489.   {
  490.     register char *temp = (char *)malloc (size);
  491.   
  492. ***************
  493. *** 82,88 ****
  494.   char *
  495.   xrealloc (pointer, size)
  496.        register char *pointer;
  497. !      int size;
  498.   {
  499.     char *temp;
  500.   
  501. --- 82,88 ----
  502.   char *
  503.   xrealloc (pointer, size)
  504.        register char *pointer;
  505. ! long size;
  506.   {
  507.     char *temp;
  508.   
  509. ***************
  510. *** 158,166 ****
  511.   unset_nodelay_mode (fd)
  512.        int fd;
  513.   {
  514.     int flags, set = 0;
  515.   
  516. !   if ((flags = fcntl (fd, F_GETFL, 0)) < 0)
  517.       return;
  518.   
  519.   #if defined (O_NONBLOCK)
  520. --- 158,174 ----
  521.   unset_nodelay_mode (fd)
  522.        int fd;
  523.   {
  524. + 
  525. + /**
  526. +  ** (sjk)++ We remove the call to make stdin a noblocking stream, since this 
  527. +             is not a feature of our limited fcntl() call. No blocking Input 
  528. +         is however taken care of by the console_input_status()
  529. +             and console_read_byte() pair in the readline source code.
  530. +  **/
  531. + #if !defined(atarist)
  532.     int flags, set = 0;
  533.   
  534. !   if ((flags = fcntl(fd, F_GETFL, 0)) < 0)
  535.       return;
  536.   
  537.   #if defined (O_NONBLOCK)
  538. ***************
  539. *** 181,186 ****
  540. --- 189,195 ----
  541.   
  542.     if (set)
  543.       fcntl (fd, F_SETFL, flags);
  544. + #endif 
  545.   }
  546.   
  547.   
  548. ***************
  549. *** 406,411 ****
  550. --- 415,429 ----
  551.   {
  552.     register char *cp;
  553.   
  554. + /** 
  555. +  ** (sjk)++ let the string "[a..z]:" pass through as is is a valid drive 
  556. +  **         specification on the Atari ST.
  557. +  **/
  558. + #if defined(atarist)
  559. +   if ((strlen(string)>1) && (string[1] == ':'))
  560. +     return(savestring (string));
  561. + #endif 
  562. +  
  563.     if (!dot_path || *string == '/')
  564.       return (savestring (string));
  565.   
  566. diff -c ./general.h /home/scott/work/st-bash-1.10/src/general.h
  567. *** ./general.h    Sat Jul 13 23:40:27 1991
  568. --- /home/scott/work/st-bash-1.10/src/general.h    Wed Oct 23 19:15:02 1991
  569. ***************
  570. *** 76,82 ****
  571.   #define FS_EXEC_PREFERRED 0x4
  572.   #define FS_EXEC_ONLY      0x8
  573.   
  574. - extern char *xmalloc (), *malloc (), *xrealloc (), *realloc ();
  575.   extern char *itos ();
  576.   
  577.   #endif    /* _GENERAL_ */
  578. --- 76,84 ----
  579.   #define FS_EXEC_PREFERRED 0x4
  580.   #define FS_EXEC_ONLY      0x8
  581.   
  582.   extern char *itos ();
  583.   
  584.   #endif    /* _GENERAL_ */
  585. + 
  586. + 
  587. + 
  588. diff -c ./mailcheck.c /home/scott/work/st-bash-1.10/src/mailcheck.c
  589. *** ./mailcheck.c    Sun Jul  7 17:25:49 1991
  590. --- /home/scott/work/st-bash-1.10/src/mailcheck.c    Wed Oct 23 19:22:16 1991
  591. ***************
  592. *** 24,29 ****
  593. --- 24,35 ----
  594.   #include <sys/param.h>
  595.   #include "shell.h"
  596.   
  597. + /**
  598. +  ** (sjk)++ Remove all host/mail references on the Atari ST1
  599. +  **/
  600. + #if !defined(atarist)
  601. + 
  602. + 
  603.   #include "maxpath.h"
  604.   
  605.   #ifndef NOW
  606. ***************
  607. *** 148,153 ****
  608. --- 154,160 ----
  609.     mailfiles_count = 0;
  610.     mailfiles = (FILEINFO **)NULL;
  611.   }
  612. + #endif 
  613.   
  614.   /* Return the full pathname of FILE.  Easy.  Filenames that begin
  615.      with a '/' are returned as themselves.  Other filenames have
  616. ***************
  617. *** 190,195 ****
  618. --- 197,207 ----
  619.     }
  620.   }
  621.   
  622. + /**
  623. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  624. +  **/
  625. + #if !defined(atarist)
  626. + 
  627.   /* Return non-zero if FILE's mod date has changed. */
  628.   file_mod_date_changed (file)
  629.        char *file;
  630. ***************
  631. *** 404,406 ****
  632. --- 416,419 ----
  633.     free (mailpaths);
  634.     bind_variable ("_", dollar_underscore);
  635.   }
  636. + #endif 
  637. diff -c ./nojobs.c /home/scott/work/st-bash-1.10/src/nojobs.c
  638. *** ./nojobs.c    Mon Sep 30 23:27:27 1991
  639. --- /home/scott/work/st-bash-1.10/src/nojobs.c    Wed Oct 23 19:28:38 1991
  640. ***************
  641. *** 46,56 ****
  642.   #define SIGABRT SIGIOT
  643.   #endif
  644.   
  645. ! #if defined (USG) || defined (_POSIX_VERSION)
  646.   #define killpg(pg, sig)        kill(-(pg),(sig))
  647.   #endif
  648.   
  649. ! #if defined (USG)
  650.   #define siginterrupt(sig, code)
  651.   #endif
  652.   
  653. --- 46,62 ----
  654.   #define SIGABRT SIGIOT
  655.   #endif
  656.   
  657. ! /**
  658. !  ** (sjk)++ Remove all host/mail references on the Atari ST1
  659. !  **/
  660. ! #if defined (USG) || defined (_POSIX_VERSION) || defined(atarist)
  661.   #define killpg(pg, sig)        kill(-(pg),(sig))
  662.   #endif
  663.   
  664. ! /**
  665. !  ** (sjk)++ Make siginterrupt() a NULL code on the Atari ST
  666. !  **/
  667. ! #if defined (USG) || defined(atarist)
  668.   #define siginterrupt(sig, code)
  669.   #endif
  670.   
  671. ***************
  672. *** 143,148 ****
  673. --- 149,161 ----
  674.     return (pid);
  675.   }
  676.   
  677. + /**
  678. +  ** (sjk)++ Define ECHILD to be an unknown/general ERROR code for the Atari ST
  679. +  **/
  680. + #if defined(atarist)
  681. + #define ECHILD (-1)
  682. + #endif
  683. + 
  684.   /* Wait for a single pid (PID) and return its exit status. */
  685.   wait_for_single_pid (pid)
  686.        pid_t pid;
  687. ***************
  688. *** 186,192 ****
  689.         WAIT status;
  690.   
  691.         while ((got_pid = wait(&status)) != -1)  /* wait for ECHILD */
  692. !     ;
  693.         if (errno != EINTR && errno != ECHILD)
  694.       {
  695.         siginterrupt (SIGINT, 0);
  696. --- 199,206 ----
  697.         WAIT status;
  698.   
  699.         while ((got_pid = wait(&status)) != -1)  /* wait for ECHILD */
  700. !      printf("Stuck in wait loop with got_pid = %d\n",got_pid);
  701. ! 
  702.         if (errno != EINTR && errno != ECHILD)
  703.       {
  704.         siginterrupt (SIGINT, 0);
  705. ***************
  706. *** 294,300 ****
  707. --- 308,321 ----
  708.   /* Fill the contents of shell_tty_info with the current tty info. */
  709.   get_tty_state ()
  710.   {
  711. + /**
  712. +  ** (sjk)++ Attach the terminal to CON: on the Atari ST
  713. +  **/
  714. + #if !defined(atarist)
  715.     int tty = open ("/dev/tty", O_RDONLY);
  716. + #else 
  717. +   int tty = open("CON:", O_RDONLY);
  718. + #endif 
  719.     if (tty != -1)
  720.       {
  721.      
  722. ***************
  723. *** 315,321 ****
  724. --- 336,349 ----
  725.   /* Make the current tty use the state in shell_tty_info. */
  726.   set_tty_state ()
  727.   {
  728. + /**
  729. +  ** (sjk)++ Attach the terminal to CON: on the Atari ST
  730. +  **/
  731. + #if !defined(atarist)
  732.     int tty = open ("/dev/tty", O_RDONLY);
  733. + #else 
  734. +   int tty = open("CON:", O_RDONLY);
  735. + #endif 
  736.     if (tty != -1)
  737.       {
  738.         if (!got_tty_state)
  739. ***************
  740. *** 326,336 ****
  741.   #if defined (_POSIX_VERSION)
  742.         tcsetattr (tty, TCSADRAIN, &shell_tty_info);
  743.   #else
  744. ! #  if defined (USG)
  745. !       ioctl (tty, TCSETAW, &shell_tty_info);  /* Wait for output, no flush */
  746. ! #  else
  747.         ioctl (tty, TIOCSETN, &shell_tty_info);
  748. ! #  endif
  749.   #endif
  750.         close (tty);
  751.       }
  752. --- 354,367 ----
  753.   #if defined (_POSIX_VERSION)
  754.         tcsetattr (tty, TCSADRAIN, &shell_tty_info);
  755.   #else
  756. ! /** 
  757. !  ** (sjk)++ Set the terminal parameters ala USG if on an Atari ST
  758. !  **/
  759. ! #if defined (USG) || defined(atarist)
  760.         ioctl (tty, TIOCSETN, &shell_tty_info);
  761. ! #else
  762. !       ioctl (tty, TCSETAW, &shell_tty_info);  /* Wait for output, no flush */
  763. ! #endif
  764.   #endif
  765.         close (tty);
  766.       }
  767. diff -c ./parse.y /home/scott/work/st-bash-1.10/src/parse.y
  768. *** ./parse.y    Thu Oct  3 17:17:09 1991
  769. --- /home/scott/work/st-bash-1.10/src/parse.y    Wed Oct 23 19:27:08 1991
  770. ***************
  771. *** 677,682 ****
  772. --- 677,686 ----
  773.   /*                                    */
  774.   /* **************************************************************** */
  775.   
  776. + #if defined(atarist)
  777. + extern int console_read_byte();
  778. + #endif
  779. + 
  780.   int
  781.   yy_stream_get ()
  782.   {
  783. ***************
  784. *** 684,690 ****
  785. --- 688,701 ----
  786.   #if defined (USG)
  787.       return (sysv_getc (yy_input_dev));
  788.   #else
  789. + /**
  790. +  ** (sjk)++ Atari ST hack for input
  791. +  **/
  792. + #if !defined(atarist)
  793.       return (getc (yy_input_dev));
  794. + #else 
  795. +     return(console_read_byte(fileno(yy_input_dev)));
  796. + #endif 
  797.   #endif    /* USG */
  798.     else return (EOF);
  799.   }
  800. ***************
  801. *** 1353,1358 ****
  802. --- 1364,1374 ----
  803.   {
  804.     if (interactive && (!current_token || current_token == '\n'))
  805.       {
  806. + 
  807. + /**
  808. +  ** (sjk)++
  809. +  **/
  810. + #if !defined(atarist)
  811.         /* Before we print a prompt, we might have to check mailboxes.
  812.        We do this only if it is time to do so. Notice that only here
  813.        is the mail alarm reset; nothing takes place in check_mail ()
  814. ***************
  815. *** 1362,1367 ****
  816. --- 1378,1384 ----
  817.         check_mail ();
  818.         reset_mail_timer ();
  819.       }
  820. + #endif
  821.   
  822.         /* Allow the execution of a random command just before the printing
  823.        of each primary prompt.  If the shell variable PROMPT_COMMAND
  824. diff -c ./shell.c /home/scott/work/st-bash-1.10/src/shell.c
  825. *** ./shell.c    Thu Oct  3 16:39:06 1991
  826. --- /home/scott/work/st-bash-1.10/src/shell.c    Wed Oct 23 19:17:26 1991
  827. ***************
  828. *** 135,142 ****
  829. --- 135,150 ----
  830.   
  831.   /* The environment at the top-level REP loop.  We use this in the case of
  832.      error return. */
  833. + /**
  834. +  ** (sjk)++ catch is defined in setjmp.h on the Atari ST
  835. +  **/
  836. + #if !defined(atarist)
  837.   jmp_buf top_level, catch;
  838. + #else 
  839. + jmp_buf top_level;
  840. + #endif
  841.   
  842. + 
  843.   /* Non-zero is the recursion depth for commands. */
  844.   int indirection_level = 0;
  845.   
  846. ***************
  847. *** 240,245 ****
  848. --- 248,263 ----
  849.     }
  850.   #endif /* NeXT */
  851.   
  852. + /**
  853. +  ** (sjk)++ Set the default unixmode as we cannot assume that the variable 
  854. +  **         is set upon entering the shell.
  855. +  **/
  856. + #if defined(atarist)
  857. +  if (!getenv("UNIXMODE")) _set_unixmode("/.,rCLAHdb");
  858. +     else _set_unixmode(getenv("UNIXMODE"));
  859. + #endif
  860. + 
  861. + 
  862.     /* Wait forever if we are debugging a login shell. */
  863.     while (debugging_login_shell);
  864.   
  865. ***************
  866. *** 602,607 ****
  867. --- 620,629 ----
  868.     /* Do the things that should be done only for interactive shells. */
  869.     if (interactive_shell)
  870.       {
  871. + /**
  872. +  ** (sjk)++ Remove all host/mail code on the Atari ST
  873. +  **/
  874. + #if !defined(atarist)
  875.         /* Set up for checking for presence of mail. */
  876.   #if defined (USG)
  877.         /* Under System V, we can only tell if you have mail if the
  878. ***************
  879. *** 625,630 ****
  880. --- 647,653 ----
  881.       }
  882.   
  883.         reset_mail_timer ();
  884. + #endif 
  885.   
  886.         change_flag_char ('i', FLAG_ON);
  887.   
  888. ***************
  889. *** 1015,1021 ****
  890.     /* Only do timeouts if interactive. */
  891.     if (interactive)
  892.       {
  893. !       tmout_var = find_variable ("TMOUT");
  894.   
  895.         if (tmout_var && tmout_var->value)
  896.       {
  897. --- 1038,1048 ----
  898.     /* Only do timeouts if interactive. */
  899.     if (interactive)
  900.       {
  901. ! /**
  902. !  ** (sjk)++ There is no nead to do an interative timeout on the Atari ST
  903. !  **/
  904. ! #if !defined(atarist)
  905. !      tmout_var = find_variable ("TMOUT");
  906.   
  907.         if (tmout_var && tmout_var->value)
  908.       {
  909. ***************
  910. *** 1026,1031 ****
  911. --- 1053,1059 ----
  912.             alarm (tmout_len);
  913.           }
  914.       }
  915. + #endif
  916.       }
  917.   
  918.     QUIT;
  919. ***************
  920. *** 1032,1042 ****
  921. --- 1060,1075 ----
  922.   
  923.     result = parse_command ();
  924.   
  925. + /**
  926. +  ** (sjk)++ There is no need for an interactive timeout on the Atari ST
  927. +  **/
  928. + #if !defined(atarist)
  929.     if (interactive && tmout_var && (tmout_len > 0))
  930.       {
  931.         alarm(0);
  932.         signal (SIGALRM, old_alrm);
  933.       }
  934. + #endif
  935.     return (result);
  936.   }
  937.   
  938. ***************
  939. *** 1376,1382 ****
  940.   sigint_sighandler (sig)
  941.        int sig;
  942.   {
  943. ! #if defined (USG) && !defined (_POSIX_VERSION)
  944.     signal (sig, sigint_sighandler);
  945.   #endif
  946.   
  947. --- 1409,1418 ----
  948.   sigint_sighandler (sig)
  949.        int sig;
  950.   {
  951. ! /**
  952. !  **  (sjk)++ Offer up the signal ala USG on the Atari ST
  953. !  **/
  954. ! #if (defined (USG) && !defined(_POSIX_VERSION)) || defined(atarist)
  955.     signal (sig, sigint_sighandler);
  956.   #endif
  957.   
  958. diff -c ./shell.h /home/scott/work/st-bash-1.10/src/shell.h
  959. *** ./shell.h    Mon Sep 30 05:42:53 1991
  960. --- /home/scott/work/st-bash-1.10/src/shell.h    Wed Oct 23 16:30:17 1991
  961. ***************
  962. *** 18,24 ****
  963. --- 18,31 ----
  964.   /* A bunch of stuff for flow of control using setjmp () and longjmp (). */
  965.   
  966.   #include <setjmp.h>
  967. + /**
  968. +  ** (sjk)++ catch is defined in setjmp.h on the Atari ST
  969. +  **/
  970. + #if !defined(atarist)
  971.   extern jmp_buf top_level, catch;
  972. + #else
  973. + extern jmp_buf top_level;
  974. + #endif
  975.   
  976.   #define NOT_JUMPED 0        /* Not returning from a longjmp. */
  977.   #define FORCE_EOF 1        /* We want to stop parsing. */
  978. diff -c ./subst.c /home/scott/work/st-bash-1.10/src/subst.c
  979. *** ./subst.c    Thu Oct  3 16:37:36 1991
  980. --- /home/scott/work/st-bash-1.10/src/subst.c    Wed Oct 23 19:26:36 1991
  981. ***************
  982. *** 2694,2700 ****
  983.            continue.  In the common case, at least when running shell
  984.            scripts, this will degenerate to a bunch of calls to `index',
  985.            and then what is basically the body of copy_word_list. */
  986. !       if (index (tlist->word->word, '{') != NULL)
  987.           {
  988.             expansions = brace_expand (tlist->word->word);
  989.   
  990. --- 2694,2700 ----
  991.            continue.  In the common case, at least when running shell
  992.            scripts, this will degenerate to a bunch of calls to `index',
  993.            and then what is basically the body of copy_word_list. */
  994. !       if (index ((tlist->word->word), '{') != (int)NULL)
  995.           {
  996.             expansions = brace_expand (tlist->word->word);
  997.   
  998. ***************
  999. *** 2955,2963 ****
  1000.   
  1001.   /* The functions that get called. */
  1002.   int
  1003. !   sv_path (), sv_mail (), sv_terminal (), sv_histsize (), sv_histfilesize (),
  1004.     sv_uids (), sv_ignoreeof (), sv_glob_dot_filenames (), sv_histchars (),
  1005. !   sv_nolinks (), sv_hostname_completion_file (), sv_history_control (),
  1006.     sv_noclobber (), sv_allow_null_glob_expansion ();
  1007.   
  1008.   #if defined (GETOPTS_BUILTIN)
  1009. --- 2955,2971 ----
  1010.   
  1011.   /* The functions that get called. */
  1012.   int
  1013. !   sv_path (), 
  1014. ! #if !defined(atarist)
  1015. !   sv_mail (), 
  1016. ! #endif 
  1017. !   sv_terminal (), sv_histsize (), sv_histfilesize (),
  1018.     sv_uids (), sv_ignoreeof (), sv_glob_dot_filenames (), sv_histchars (),
  1019. !   sv_nolinks (), 
  1020. ! #if !defined(atarist)
  1021. !   sv_hostname_completion_file (), 
  1022. ! #endif 
  1023. !   sv_history_control (),
  1024.     sv_noclobber (), sv_allow_null_glob_expansion ();
  1025.   
  1026.   #if defined (GETOPTS_BUILTIN)
  1027. ***************
  1028. *** 2973,2981 ****
  1029. --- 2981,2994 ----
  1030.     Function *function;
  1031.   } special_vars[] = {
  1032.     { "PATH", sv_path },
  1033. + /**
  1034. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1035. +  **/
  1036. + #if !defined(atarist)
  1037.     { "MAIL", sv_mail },
  1038.     { "MAILPATH", sv_mail },
  1039.     { "MAILCHECK", sv_mail },
  1040. + #endif
  1041.     { "TERMCAP", sv_terminal },
  1042.     { "TERM", sv_terminal },
  1043.     { "HISTSIZE", sv_histsize },
  1044. ***************
  1045. *** 2995,3001 ****
  1046. --- 3008,3019 ----
  1047.     { "allow_null_glob_expansion", sv_allow_null_glob_expansion },
  1048.     { "histchars", sv_histchars },
  1049.     { "nolinks", sv_nolinks },
  1050. + /**
  1051. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1052. +  **/
  1053. + #if !defined(atarist)
  1054.     { "hostname_completion_file", sv_hostname_completion_file },
  1055. + #endif
  1056.     { "history_control", sv_history_control },
  1057.     { "noclobber", sv_noclobber },
  1058.     { (char *)0x00, (Function *)0x00 }
  1059. ***************
  1060. *** 3045,3050 ****
  1061. --- 3063,3072 ----
  1062.   
  1063.   /* What to do just after one of the MAILxxxx variables has changed.  NAME
  1064.      is the name of the variable.  */
  1065. + /**
  1066. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1067. +  **/
  1068. + #if !defined(atarist)
  1069.   sv_mail (name)
  1070.        char *name;
  1071.   {
  1072. ***************
  1073. *** 3063,3068 ****
  1074. --- 3085,3091 ----
  1075.       }
  1076.       }
  1077.   }
  1078. + #endif 
  1079.   
  1080.   /* What to do just after one of the TERMxxx variables has changed.
  1081.      If we are an interactive shell, then try to reset the terminal
  1082. ***************
  1083. *** 3261,3266 ****
  1084. --- 3284,3293 ----
  1085.     v->attributes |= (att_readonly | att_integer);
  1086.   }
  1087.   
  1088. + /**
  1089. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1090. +  **/
  1091. + #if !defined(atarist)
  1092.   sv_hostname_completion_file (name)
  1093.        char *name;
  1094.   {
  1095. ***************
  1096. *** 3268,3273 ****
  1097. --- 3295,3301 ----
  1098.   
  1099.     hostname_list_initialized = 0;
  1100.   }
  1101. + #endif 
  1102.   
  1103.   sv_allow_null_glob_expansion (name)
  1104.        char *name;
  1105. diff -c ./trap.c /home/scott/work/st-bash-1.10/src/trap.c
  1106. *** ./trap.c    Thu Oct  3 16:33:48 1991
  1107. --- /home/scott/work/st-bash-1.10/src/trap.c    Wed Oct 23 19:12:53 1991
  1108. ***************
  1109. *** 286,294 ****
  1110. --- 286,299 ----
  1111.   /* Non-zero when we catch a trapped signal. */
  1112.   static int catch_flag = 0;
  1113.   
  1114. + /**
  1115. +  ** (sjk)++ NO BSD type signals on the Atari ST1
  1116. +  **/
  1117. + #if !defined(atarist)
  1118.   #if !defined (USG) && !defined (USGr4)
  1119.   #define HAVE_BSD_SIGNALS
  1120.   #endif
  1121. + #endif
  1122.   
  1123.   run_pending_traps ()
  1124.   {
  1125. ***************
  1126. *** 437,446 ****
  1127.   ignore_signal (sig)
  1128.        int sig;
  1129.   {
  1130. - #ifdef SIGCHLD
  1131.     /* Don't allow the SIGCHLD signal catcher to be overridden. */
  1132.     if (sig != SIGCHLD)
  1133. - #endif
  1134.       signal (sig, SIG_IGN);
  1135.     change_signal (sig, (char *)IGNORE_SIG);
  1136.   }
  1137. --- 442,449 ----
  1138. diff -c ./variables.c /home/scott/work/st-bash-1.10/src/variables.c
  1139. *** ./variables.c    Sun Jul 28 16:24:29 1991
  1140. --- /home/scott/work/st-bash-1.10/src/variables.c    Wed Oct 23 19:22:59 1991
  1141. ***************
  1142. *** 66,76 ****
  1143. --- 66,81 ----
  1144.   /* The list of variables that may not be unset in this shell. */
  1145.   char **non_unsettable_vars = (char **)NULL;
  1146.   
  1147. + /**
  1148. +  **  (sjk)++ Remove all mail references on the Atari ST 
  1149. +  **/
  1150. + #if !defined(atarist)   
  1151.   #if defined (USG)
  1152.   #define DEFAULT_MAIL_PATH "/usr/mail/"
  1153.   #else
  1154.   #define DEFAULT_MAIL_PATH "/usr/spool/mail/"
  1155.   #endif
  1156. + #endif 
  1157.   
  1158.   /* Some forward declarations. */
  1159.   SHELL_VAR *set_if_not ();    /* returns new or existing entry */
  1160. ***************
  1161. *** 138,143 ****
  1162. --- 143,159 ----
  1163.   
  1164.     /* Now make our own defaults in case the vars that we think are
  1165.        important are missing. */
  1166. + 
  1167. + /**
  1168. +  ** (sjk)++ We set some default environment variables, provided 
  1169. +  **         that they are not defined.
  1170. +  **/
  1171. + #if defined(atarist)
  1172. +   set_if_not("UNIXMODE","/.,rCLAHdb");   /* Set a default Unixmode */ 
  1173. +   set_if_not("HOME","/dev/A");
  1174. +   set_if_not("TERM","vt52");
  1175. + #endif 
  1176. + 
  1177.     temp_var = set_if_not ("PATH", DEFAULT_PATH_VALUE);
  1178.     set_auto_export (temp_var);
  1179.   
  1180. ***************
  1181. *** 152,157 ****
  1182. --- 168,177 ----
  1183.     temp_var = set_if_not ("HOSTTYPE", HOSTTYPE);
  1184.     set_auto_export (temp_var);
  1185.   
  1186. + /**
  1187. +  **  (sjk)++ Remove all mail references on the Atari ST 
  1188. +  **/
  1189. + #if !defined(atarist)   
  1190.     /* Default MAILPATH, and MAILCHECK. */
  1191.     set_if_not ("MAILCHECK", "60");
  1192.     if ((get_string_value ("MAIL") == (char *)NULL) &&
  1193. ***************
  1194. *** 168,173 ****
  1195. --- 188,194 ----
  1196.         bind_variable ("MAILPATH", tem);
  1197.         free (tem);
  1198.       }
  1199. + #endif
  1200.   
  1201.     /* Set up $PWD. */
  1202.     {
  1203. ***************
  1204. *** 282,288 ****
  1205.       set_if_not ("HISTFILE", tem);
  1206.       free (tem);
  1207.   
  1208. !     set_if_not ("HISTSIZE", "500");
  1209.       sv_histsize ("HISTSIZE");
  1210.     }
  1211.   
  1212. --- 303,309 ----
  1213.       set_if_not ("HISTFILE", tem);
  1214.       free (tem);
  1215.   
  1216. !     set_if_not ("HISTSIZE", "50");
  1217.       sv_histsize ("HISTSIZE");
  1218.     }
  1219.   
  1220. ***************
  1221. *** 352,358 ****
  1222.         return;
  1223.   
  1224.     non_unsettable_vars = (char **)
  1225. !     xrealloc (non_unsettable_vars, (2 + i) * sizeof (char *));
  1226.     non_unsettable_vars[i] = savestring (name);
  1227.     non_unsettable_vars[i + 1] = (char *)NULL;
  1228.   }
  1229. --- 373,379 ----
  1230.         return;
  1231.   
  1232.     non_unsettable_vars = (char **)
  1233. !     xrealloc ((char *)non_unsettable_vars, (2 + i) * sizeof (char *));
  1234.     non_unsettable_vars[i] = savestring (name);
  1235.     non_unsettable_vars[i + 1] = (char *)NULL;
  1236.   }
  1237. ***************
  1238. *** 395,401 ****
  1239.           {
  1240.             if (list_index + 1 >= list_size)
  1241.           list = (SHELL_VAR **)
  1242. !           xrealloc (list, (list_size += 20) * sizeof (SHELL_VAR *));
  1243.   
  1244.             list[list_index++] = var;
  1245.             list[list_index] = (SHELL_VAR *)NULL;
  1246. --- 416,422 ----
  1247.           {
  1248.             if (list_index + 1 >= list_size)
  1249.           list = (SHELL_VAR **)
  1250. !           xrealloc ((char *)list, (list_size += 20) * sizeof (SHELL_VAR *));
  1251.   
  1252.             list[list_index++] = var;
  1253.             list[list_index] = (SHELL_VAR *)NULL;
  1254. ***************
  1255. *** 1365,1371 ****
  1256.   
  1257.     size = array_len (temporary_env);
  1258.     temporary_env = (char **)
  1259. !     xrealloc (temporary_env, (size + 2) * (sizeof (char *)));
  1260.   
  1261.     temporary_env[size] = (temp);
  1262.     temporary_env[size + 1] = (char *)NULL;
  1263. --- 1386,1392 ----
  1264.   
  1265.     size = array_len (temporary_env);
  1266.     temporary_env = (char **)
  1267. !     xrealloc ((char *)temporary_env, (size + 2) * (sizeof (char *)));
  1268.   
  1269.     temporary_env[size] = (temp);
  1270.     temporary_env[size + 1] = (char *)NULL;
  1271. ***************
  1272. *** 1557,1563 ****
  1273.   #if !defined (NeXT)
  1274.   char *
  1275.   getenv (name)
  1276. !      char *name;
  1277.   {
  1278.     SHELL_VAR *var = find_tempenv_variable (name);
  1279.   
  1280. --- 1578,1584 ----
  1281.   #if !defined (NeXT)
  1282.   char *
  1283.   getenv (name)
  1284. !      const char *name;
  1285.   {
  1286.     SHELL_VAR *var = find_tempenv_variable (name);
  1287.